Steps to reproduce:
getClarityDF(params$clarity, 999) %>%
DT::datatable(
options = list(
pageLength = params$n_rows,
lengthMenu = c(params$n_rows * params$n_rows ^ c(0:2))))
Steps to reproduce:
plotClarity(params$clarity)
Steps to reproduce:
printClarity(params$clarity)
The diamonds of IF clarity range from $369 - $18806, compared to the average for all diamonds, $3932.80. The most expensive diamond is at the 99.9963 percentile.